home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
moving
/
bitdemo1.frm
< prev
next >
Wrap
Text File
|
1995-06-17
|
19KB
|
582 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00C0C0C0&
Caption = "BitBlt and Sprite Example"
ClientHeight = 6045
ClientLeft = 390
ClientTop = 645
ClientWidth = 5550
Height = 6450
Left = 330
LinkTopic = "Form1"
ScaleHeight = 6045
ScaleWidth = 5550
Top = 300
Width = 5670
Begin CommandButton btnSprites
Caption = " &Animated Sprites"
Height = 375
Left = 3720
TabIndex = 19
Top = 120
Width = 1665
End
Begin PictureBox picEarthMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 480
Left = 5670
Picture = BITDEMO1.FRX:0000
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 18
Top = 360
Width = 480
End
Begin PictureBox picEarthSprites
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 480
Left = 5670
Picture = BITDEMO1.FRX:027A
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 256
TabIndex = 17
Top = 960
Width = 3840
End
Begin CheckBox chkFlickerless
BackColor = &H00C0C0C0&
Caption = "Flickerless"
Height = 255
Left = 3930
TabIndex = 12
Top = 5220
Value = 1 'Checked
Width = 1395
End
Begin CheckBox chkAutoRedraw
BackColor = &H00C0C0C0&
Caption = "AutoRedraw"
Height = 255
Left = 3930
TabIndex = 11
Top = 4950
Value = 1 'Checked
Width = 1395
End
Begin PictureBox picWork
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 675
Left = 2700
ScaleHeight = 45
ScaleMode = 3 'Pixel
ScaleWidth = 45
TabIndex = 10
Top = 5100
Visible = 0 'False
Width = 675
End
Begin HScrollBar HScroll1
Height = 255
LargeChange = 12
Left = 180
TabIndex = 9
Top = 4440
Width = 4965
End
Begin VScrollBar VScroll1
Height = 3675
LargeChange = 12
Left = 5130
TabIndex = 8
Top = 780
Width = 255
End
Begin PictureBox picBMP
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 9030
Left = 5670
Picture = BITDEMO1.FRX:12F4
ScaleHeight = 600
ScaleMode = 3 'Pixel
ScaleWidth = 800
TabIndex = 7
Top = 1560
Width = 12030
End
Begin CommandButton btnStep
Caption = "Single &Step"
Height = 375
Left = 1950
TabIndex = 5
Top = 120
Width = 1665
End
Begin CommandButton btnGo
Caption = "&S&imple Sprites"
Height = 375
Left = 180
TabIndex = 4
Top = 120
Width = 1665
End
Begin PictureBox picSave
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 750
Left = 1860
ScaleHeight = 50
ScaleMode = 3 'Pixel
ScaleWidth = 50
TabIndex = 3
Top = 5100
Visible = 0 'False
Width = 750
End
Begin Timer Timer1
Enabled = 0 'False
Interval = 55
Left = 6300
Top = 60
End
Begin PictureBox PicImage
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 750
Left = 1020
Picture = BITDEMO1.FRX:76A2E
ScaleHeight = 50
ScaleMode = 3 'Pixel
ScaleWidth = 50
TabIndex = 2
Top = 5100
Width = 750
End
Begin PictureBox picMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 750
Left = 180
Picture = BITDEMO1.FRX:77020
ScaleHeight = 50
ScaleMode = 3 'Pixel
ScaleWidth = 50
TabIndex = 1
Top = 5100
Width = 750
End
Begin PictureBox picBackground
BackColor = &H00FFFFFF&
Height = 3675
Left = 180
ScaleHeight = 243
ScaleMode = 3 'Pixel
ScaleWidth = 329
TabIndex = 0
Top = 780
Width = 4965
End
Begin Timer Timer2
Enabled = 0 'False
Interval = 55
Left = 6840
Top = 60
End
Begin Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Work"
ForeColor = &H000000C0&
Height = 195
Index = 3
Left = 2670
TabIndex = 16
Top = 4860
Width = 735
End
Begin Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Saved"
ForeColor = &H000000C0&
Height = 195
Index = 2
Left = 1860
TabIndex = 15
Top = 4860
Width = 735
End
Begin Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Sprite"
ForeColor = &H000000C0&
Height = 195
Index = 1
Left = 1020
TabIndex = 14
Top = 4860
Width = 735
End
Begin Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Mask"
ForeColor = &H000000C0&
Height = 195
Index = 0
Left = 150
TabIndex = 13
Top = 4860
Width = 735
End
Begin Label lblStep
Alignment = 2 'Center
BackStyle = 0 'Transparent
Height = 195
Left = 1560
TabIndex = 6
Top = 540
Width = 2535
End
End
Option Explicit
'-----------------------------------------------------
' BITDEMO1.FRM
' This program demonstrates some of the methods used
' to display bitmaps and sprites.
'-----------------------------------------------------
' The number of pixels to offset the sprite
' each time it is moved.
Const INCREMENT = 3
' Constants for Raster Operations used by BitBlt function.
Const SRCAND = &H8800C6 ' dest = source A
